Bonjour,

La condition que je veux faire sous VBA est la suivante : Si en cellule 13 c'est vide et que en colonne 14 correspondant à une date "jjmmaaaa" alors je copie la colonne 14 en colonne 13. (Donc en gros, il copie la date en colonne 14 et la colle en colonne 13).

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
Sub test()
 
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
 
    For j = 2 To Derligne
 
    If .Cells(j, 13).Value = "" And .Cells(j, 14).NumberFormat = "dd/mm/yyyy" Then
 
.Cells(j, 14).Copy
.Cells(j, 13).Paste
 
 End If
        Next j
 
    End With
End Sub
Merci !