Bonsoir le forum
Par macro associé a un bouton
Option Explicit
Sub tous_les_fichiers()
Dim b As Byte, c As Byte, d As Byte
Dim i As Byte, j As Byte, k As Byte
Dim valeur As Variant
Dim ligne As Double
b = 0: c = 0: d = 0
Range("B5:B17").Select
For Each valeur In Selection
If valeur <> "" Then b = b + 1
Next
Range("C5:C17").Select
For Each valeur In Selection
If valeur <> "" Then c = c + 1
Next
Range("D5
17").Select
For Each valeur In Selection
If valeur <> "" Then d = d + 1
Next
ligne = 21
For i = 1 To b
For j = 1 To d
For k = 1 To c
Cells(ligne, 2) = Cells(i + 4, 2) & "_" & Cells(k + 4, 3) & "_" & Cells(j + 4, 4)
ligne = ligne + 1
Next k: Next j: Next i
End Sub
A suivre