Bonjour à tous,
dans le fichier ci-joint je voudrais modifier cette partie du code qui se trouve dans le module newmonthsheet :
For I = 35 To 9 Step -1
If IsDate(Cells(I, "E").Value) Then
If Cells(I, "E") < Range("B8") Then Rows(I).Delete
End If
Next I
je souhaite...