Bonsoir à tous,
Version macro....
Sub test()
Dim col As Integer, dercol As Integer
Dim dl As Integer, derlig As Integer
Application.ScreenUpdating = False
Sheets("Feuil2").Cells.ClearContents
With Sheets("Feuil1")
dercol = .UsedRange.Columns.Count
dl = .Range("A1").CurrentRegion.Rows.Count
i = 2
Do While i <= dl
For col = 2 To dercol
derlig = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
If .Cells(i, col) <> "" Then
Sheets("Feuil2").Range("A" & derlig) = .Range("A" & i)
Sheets("Feuil2").Range("B" & derlig) = .Cells(i, col)
End If
derlig = derlig + 1
Next col
i = i + 1
Loop
End With
Sheets("Feuil2").Activate
End Sub
Cordialement,