Bonsoir à tous
une macro de catrice !
------------------------------------------------
Sub TranspoArchives()
Application.ScreenUpdating = False
For Each X In Range(Range("B3"), Range("B65536").End(xlUp))
If X.Offset(0, 10) <= 0 Then
X.Offset(0, -1).Resize(1, 14).Copy...