Sub transposition()
z = 0
Dim i&
For i = 1 To LigneMax Step 1
If Range("G" & i).Value <> "" Or Range("H" & i).Value <> "" Or Range("I" & i).Value <> "" Then
z = z + 1
Range("K" & z).Value = Range("G" & i).Value
Range("L" & z).Value = Range("H" & i).Value
Range("M" & z).Value = Range("I" & i).Value
End if
Next i
End Sub