désolé

Salut Petchy et le forum

Modifie ta macro comme ceci

Private Sub Calendar1_Click()
Dim L As Integer
Static Tic
L = Sheets(1).Range("A65536").End(xlUp).Row
For i = L To 2 Step -1
Range("A" & i & ":" & "H" & i).Cut
Range("a" & i + 1).Select
ActiveSheet.Paste
Next i
Tic = Tic + 1
With Sheets(1)
.Range("A2") = Format(Calendar1, " DD/MM/YYYY")
End With
End Sub

Ca devrait aller pour le déplacement vers le bas

Mytå

bonjour myta et le forum
merci pour ta formule cela fontionne bien,mais quand je veut l'appliquer sur mon prog ça ne fonctionne pas"j'ai mis une des pages en piece jointe" en plus sur la colonne B il y a sur chaque cases des données de validation.

merci
petchy