Recherche:

Pour le fun

Sub Test()
Range("Wtr_C").Cells(Application.CountA(Range("Wtr_C")) Mod 12 + 1, _
Int(Application.CountA(Range("Wtr_C")) / 12) + 1).Select
End Sub

Cordialement.

Bonjour,


Sub Test()
Dim Col As Integer
For Col = 1 To 9
If Cells(6, Col).End(xlDown).Row < 17 Then
Cells(6, Col).End(xlDown).Offset(1, 0).Select
Exit For...