Bonjour
J'ai fait ce code mais il ne fonctionne pas .la macro seule fonctionne mais pas associée au reste
Je précise que ("D19:M19")est un menu déroulant
Si vous avez une solution je suis preneur
Crdlt
Private Sub Worksheet_Selection_Change(ByVal Target As Range)
If Range("D19:M19") = Worksheet("Évaluation")("B1") Then
Range("D19:M19").Select
Sheets("Évaluation").Select
Range("A21:A38").Select
Selection.Copy
Sheets("Directrice d'installation(s)").Select
ActiveWindow.SmallScroll Down:=93
Range("R112").Select
ActiveSheet.Paste
End If
End Sub