Pblm de syntaxe pour supprimer " "

Bonjour,

Je cherche à éliminer les espaces mais j'ai un souci avec la syntaxe

Sub Macro1()
'
' Fractionner Index (Edition;Etat)

Dim Derligne As Long

Derligne = Range("A2:A" & 1).End(xlDown).Row 'n° de la dernière ligne
MsgBox Range("A2:A" & 1).End(xlDown).Row 'méssage informant du n° de la dernière ligne
Range(Cells(2, 15), Cells(Derligne, 100)).ClearContents 'éffacer la zone
Range(Cells(2, 14), Cells(Derligne, 14)).TextToColumns Destination:=Cells(2, 15), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True 'convertir
'Replace(Range(Cells(2,14),cells(Derligne,14)), " ", "") Je bloque ici
End Sub

Bonsoir,

Il faut joindre le classeur pour tester. Ou bien essaye un code suivant à adapter à ton cas :

Sub test()
    For Each cel In Range("A1:F12")
        cel.Value = WorksheetFunction.Substitute(cel, " ", "")
    Next cel
End Sub