Bonjour tout le monde,
j'ai eu la réponse a mon probleme sur "01net" je vous met la macro pour ceux que ca interesse, merci de vous etre interessé a mon probleme.
Sub test()
Dim Cel As Range
For Each Cel In Range([B1], [B65536].End(xlUp))
If Not (IsEmpty(Cel)) And IsEmpty(Cel.Offset(0, -1)) Then _
Cel.Offset(0, -1) = Cel
Next Cel
End Sub
pour toutes les cellules de la plage B1 à dernière non-vide en B
si B n'est pas vide et A (cellule de la colonne d'avant) est vide alors A=B
a+