Rebonjour Pascal
voilà, j'ai arrangé le code comme je le désirai
je gère juste le cas où il n'y a qu'une ligne
une partie du code:
For x = 1 To MesColonnes
If Cells(2, x).Value <> "" Then MesLignes = MesLignes * (Sheets("Base").Cells(1, x).End(xlDown).Row)
Next
MonNbre = MesLignes
For y = 1 To MesColonnes
If Cells(2, y).Value <> "" Then
MaLigne = Sheets("Base").Cells(1, y).End(xlDown).Row
Else
MaLigne = 1
End If
encore merci pour ton aide
a+++