Option Explicit
Sub Tourne()
Dim cellule As Range, i As Long, j As Long, Derlig As Long
j = 1 'gère la ligne où se fait la recopie
Derlig = Cells(Cells.Rows.Count, 1).End(xlUp).Row 'dernière ligne à traiter
For Each cellule In Range("A2:A" & Derlig) 'Boucle sur les lignes remplies de la colonne A
For i = 2 To 13 'boucle sur les colonnes
If Not IsEmpty(Cells(cellule.Row, i)) Then
Worksheets("Tsimple2").Cells(j, 1) = cellule.Value
Worksheets("Tsimple2").Cells(j, 2) = Cells(1, i).Value
Worksheets("Tsimple2").Cells(j, 3) = Cells(cellule.Row, i).Value
j = j + 1
End If
Next i
Next cellule
End Sub