Bonjour Paldor,
Je ne comprends pas très bien l'enchainement que tu désires. Il est possible de faire une boucle qui testera chaque colonne et sera du style :
Sub testColonneVide()
'
For cetteColonne = 6 To 36
If Application.CountA(Sheets("Mois").Range(Cells(3, cetteColonne), Cells(110, cetteColonne))) = 0 Then
'la plage est vide
End If
Next
'
End Sub
Mais ensuite que veux tu faire en cas de colonne vide et en cas de colonne non vide ?
Cordialement,
Deraks