Sub CALx()
U = 1
L = 2
C = 2
Do
Ligne = ThisWorkbook.Sheets("Feuil1" ).Cells(L, 1)
If Ligne = "" Then End
Do
Colonne = ThisWorkbook.Sheets("Feuil1" ).Cells(L, C)
If Colonne = "" Then Exit Do
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 1) = ThisWorkbook.Sheets("Feuil1" ).Cells(L, 1)
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 2) = ThisWorkbook.ActiveSheet.Cells(1, C)
ThisWorkbook.Sheets("Feuil2" ).Cells(U, 3) = ThisWorkbook.ActiveSheet.Cells(L, C)
C = C + 1
U = U + 1
Loop
C = 2
L = L + 1
Loop
End Sub
Message édité par Profil supprimé le 17-11-2004 à 13:06:04