qd j essai ca ca marche pa
-------------------------------------------------------
Public Sub sup()
Dim Lig1 As Integer 'ligne de la feuille Conditions
Dim date1 As Variant 'date de la feuille conditions
Dim date2 As Variant 'date de la feuille conditions
For Lig1 = 2 To 30
date1 = Left(Application.Worksheets("Feuil1").Cells(Lig1, 1), 16)
date2 = Left(Application.Worksheets("Feuil1").Cells(Lig1 + 1, 1), 16)
'comparaison
If date1 = date2 Then
Rows("Lig1:Lig1").Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
---------------------------------------------------
y a un pb la : Rows("Lig1:Lig1").Select
alors ke si je met Rows("7:7").Select la ligne 7 est effacée
que dois je faaire?