Dim DerligSaisie As Long, Col As Integer, PG As Long
For Col = 1 To 5
DerligSaisie = 6
Do
DerligSaisie = DerligSaisie + 1
If DerligSaisie < Cells(Rows.Count, Col).End(xlUp).Row And _
Not Cells(DerligSaisie, Col).HasFormula Then _
DerligSaisie = Cells(Rows.Count, Col).End(xlUp).Row
Loop Until Cells(DerligSaisie, Col) = ""
If DerligSaisie > PG Then PG = DerligSaisie
Next
'DerligSaisie est la plus grande des denières lignes non vides et sans formules