Bonjour a tous
Moi j'essaierai:
Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy
If Range("F10")=0 Then
For I=1 To 150 'test sur les 150 lignes qui suivent F10
If Activecell.Offset(I,0)<>0 Then
If Activecell.Offset(I+1,0)=0 Then
Activecell.offset(I+1,0).PasteSpecial Paste:=xlValues
End Sub
ou si ca marche pas
Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy
If Range("F10")=0 Then
For I=1 To 150 'test sur les 150 lignes qui suivent F10
If Activecell.Offset(I,0)<>0 Then
If Activecell.Offset(I+1,0)=0 Then
Activecell.offset(I+1,0).Select
Selection.PasteSpecial Paste:=xlValues
End Sub