Sub test()
Set W = ThisWorkbook
Workbooks.Open Filename:=ThisWorkbook.Path & "\Bdd.xlsx"
W.Activate
Sheets("BALGEN").Select
tablo = Workbooks("Bdd.xlsx").Sheets("Feuil1").Range("A2:D" & Workbooks("Bdd.xlsx").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
tablo1 = W.Sheets("BALGEN").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo1, 1) To UBound(tablo1, 1)
If tablo1(m, 1) = Left(tablo(n, 1), 4) And (tablo(n, 3) <> "" Or tablo(n, 4) <> "") Then
ligne = m + 1
an = InputBox(tablo(n, 1) & " " & tablo(n, 2) & " Quelle Année ?") * 1
For p = 3 To 17 Step 2
If Cells(1, p) = an Then
W.Sheets("BALGEN").Cells(ligne, p) = tablo(n, 3)
W.Sheets("BALGEN").Cells(ligne, p + 1) = tablo(n, 4)
End If
Next
End If
Next
Next
Workbooks("Bdd.xlsx").Close (False)
End Sub