For p = 53 To Colfin
TrouverX = False
For k = 2 To Range("D65536").End(xlUp).Row
If Cells(k, 4).Value <> Cells(1, p).Value And TrouverX = False Then
[I](aller à next p => je ne sais pas comment l'écrire?)[/I]
Else
If Cells(k, 4).Value = Cells(1, p).Value And TrouverX = False Then 'Identifie les premières et dernières lignes du tableau
PremierX = k
TrouverX = True
End If
If Cells(k, 4).Value = Cells(1, p).Value And TrouverX = True Then
DernierX = k
End If
End If
Next k
Next p