Sub Remplace()
Application.ScreenUpdating = False: Dim L%
For L = 2 To Range("C65500").End(xlUp).Row ' Jusqu'à dernire ligne de C
' Si D non vide et A vide alors A=D, et D vide
If Cells(L, "D") <> "" And Cells(L, "A") = "" Then
Cells(L, "A") = Cells(L, "D")
Cells(L, "D") = ""
End If
' Si M non vide et E vide alors E=M, et M vide
If Cells(L, "M") <> "" And Cells(L, "E") = "" Then
Cells(L, "E") = Cells(L, "M")
Cells(L, "M") = ""
End If
' Si N non vide et G vide alors G=N, et N vide
If Cells(L, "N") <> "" And Cells(L, "G") = "" Then
Cells(L, "G") = Cells(L, "N")
Cells(L, "N") = ""
End If
Next L
Application.ScreenUpdating = True
End Sub