Bonjour à tous,

Je voudrais rajouter à ma macro, qu'il supprime les espaces dans les cellules "vides" dans ma colonne 17.
Voici la macro qui me permet déjà de supprimer les espaces avant et après et de transformer par exemples "05 01 2018" en "05/01/2018", donc en date de jour. Il faudrait juste que je complète en rajoutant qu'il doit supprimer les espaces dans les cellules "vides".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ConvertDate()
 
Dim i As Long, Temp As String
 
With Sheets(1)
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To Derligne
        If Not IsError(.Cells(i, 17)) Then
            If Len(Replace(.Cells(i, 17), " ", "")) = 8 Then
                Temp = Replace(.Cells(i, 17), " ", "")
                .Cells(i, 17) = DateSerial(CInt(Right(Temp, 4)), CInt(Mid(Temp, 3, 2)), CInt(Left(Temp, 2)))
            End If
        Else: .Cells(i, 17).ClearContents
        End If
    Next i
End With
 
End Sub
Merci de m'aider à compléter mon code