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