Sub ab()
'Déclaration des variables
Dim wbGRE As Workbook, wsS As Worksheet, dl As Long
'w car Workbook , ws car Worksheet, dl car dernière ligne
'on définit le classeur contenant la macro
Set wbGRE = ThisWorkbook
'on définit la feuille wsS comme la feuille Résumé
Set wsS = Workbooks("NOMIPP.xlsx").Sheets("Résumé")
With wbGRE.Sheets("Plan de surveillance")
'on trouve la dernière ligne non vide de la colonne A
dl = Cells(Rows.Count, 1).End(xlUp).Row
'on copie dans les cellules U,V,V de la dernière ligne + 1
'les cellules C7,C9,C11 de la feuille Résumé du classeur NOMIPP
.Range("U" & dl + 1) = wsS.[C7]
.Range("V" & dl + 1) = wsS.[C9]
.Range("W" & dl + 1) = wsS.[C11]
End With
End Sub