Bonsoir
Sans bouton essayez avec ce code à placer dans la feuille Commande
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Integer
If Not Intersect(Target, Range("B1")) Is Nothing Then
With Sheets("DATA")
Ligne = .Range("A:A").Find(Target, LookIn:=xlValues).Row
.Range("B" & Ligne & ":E" & Ligne).Copy
Range("B3").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
End With
Target.Select
End If
End Sub
Pour placer le code :
- Click droite sur l'onglet Commande
- Choisir "Visualiser le code"
- Coller le code ci-dessus dans la fenêtre
- Enregistrez votre fichier au format XLSM
Cordialement