Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
lg = Feuil3.Range("A20").End(xlUp).Row + 1
derop = Feuil5.Range("A20").End(xlUp).Row
For lignop = 5 To derop
For colop = 1 To 5
Feuil3.Cells(lg, colop) = Feuil5.Cells(lignop, colop)
Next
lg = lg + 1
Next
With Feuil5
an = Year(.Cells(5, 1).Value)
mois = Month(.Cells(5, 1).Value) + 1
If mois = 13 Then
mois = 1
an = an + 1
End If
nouvdate = CDate(an & "/" & mois & "/" & 3)
For l = 5 To .Range("A20").End(xlUp).Row
.Cells(l, 1) = nouvdate
Next
End With
Feuil3.Range("C1") = nouvdate
[B][SIZE=3][COLOR=red]Feuil3.CommandButton1.Enabled = False
[/COLOR][/SIZE][/B]Application.ScreenUpdating = True
End Sub