suite hier soir

fichier

Salut Raph

Ben suffit de faire çà sur ta propre macro , mais vraiment j'aime pas du tout cette façon de faire, mais çà devrait marcher...

Le user n'a qu'à positionner la cellule active quelque part sur la ligne... (Peu importe si il sélectionne une cellule ou plusieur sur la même ligne...


Sub viergeRow()
Dim L As Byte
L = ActiveCell.Row

Application.ScreenUpdating = False
Range("B" & L & ":AT" & L).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B53:Az53").Select
Selection.Copy

Range("B" & L).Select
ActiveSheet.Paste
Range("AV" & L).Select
Application.ScreenUpdating = True

End Sub

Bon Appétit
@+Thierry

Merci beaucoup, je vais essayé. Et désolé si c un peu brouillon mais je débute. Si t'as des critiques à faires, n'hésites pas c'est comme ca qu'on apprend.
@+