Salut svbb,
en tout cas, ton opiniâtreté à trouver une solution est à louer!
Bon, à défaut d'explications, voici la première partie du calcul que tu réclame depuis belle lurette.
Private Sub cmdGo_Click()
'
Dim wks As Worksheet
Set wks = Worksheets("BDD")
iRow = Range("A" & Rows.Count).End(xlUp).Row
iCol = Cells(2, Columns.Count).End(xlToLeft).Column
'
iLig = 1
For x = 4 To iRow
For y = 3 To iCol
If Cells(x, y) <> "" Then
iLig = iLig + 1
wks.Cells(iLig, 1) = [A1]
wks.Cells(iLig, 3) = [A1] & Cells(x, 1) & Cells(x, 2) & Cells(2, y)
wks.Cells(iLig, 5) = CDate(Cells(2, y))
wks.Cells(iLig, 6) = Cells(x, 1) & Cells(x, 2)
wks.Cells(iLig, 9) = Cells(x, y)
End If
Next
Next
'
End Sub
A+ pour le prochain épisode!