[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] P [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]If[/COLOR] Application.CountBlank(Range("A1:A46")) [COLOR=NAVY]Then
For Each[/COLOR] P [COLOR=NAVY]In[/COLOR] Range("A1:A46").SpecialCells(xlCellTypeBlanks).Areas
P(1).Offset(0, 1).Value = P.Count
[COLOR=NAVY]Next[/COLOR] P
[COLOR=NAVY]End If
End Sub[/COLOR]