Correction Macro Excel

Bonjour,
je cherche un prestataire pour corriger une macro excel qui semble dysfonctionner. Cela devrait prendre à peine 5 minutes, donc merci de prendre en compte cela dans a proposition (je vous expliquerai le fonctionnement de la macro par téléphone).

L'erreur se situe dans ces lignes :
Sheets("Resultats").Range("A:A").TextToColumns Destination:=Sheets("Resultats").Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:= _
True

Merci pour vos propositions.