Sub Mise_à_jour_bilan()
Dim wbGRE As Workbook, wsPlan As Worksheet, chemin As Long, nomipp1 As Long, nomipp1 As Long, nomipp2 As Long, nomipp3 As Long, nomipp4 As Long, nomipp5 As Long, nomipp6 As Long, nomipp7 As Long, nomipp8 As Long, nomipp9 As Long, nomipp10 As Long, nomipp11 As Long, nomipp12 As Long, nomipp13 As Long, nomipp14 As Long, nomipp15 As Long, nomipp16 As Long, nomipp17 As Long, nomipp18 As Long, nomipp19 As Long, nomipp20 As Long, nomipp21 As Long, nomipp22 As Long
Set wbGRE = ThisWorkbook
Set wsPlan = wbGRE.Worksheets("Plan de surveillance")
chemin = Workbooks(ActiveWorkbook.Name).Path
Set nomipp1 = wbGRE.wsPlan.Range(C2) + wbGRE.wsPlan.Range(D2)
Workbooks.Open Filename:=chemin + "/Suivi bilan/" + nomipp1 + ".xlsx"
Worksheets("Résumé").Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
wbGRE.wsPlan.Range("U2").Select
ActiveSheet.Paste
End Sub