Function NbCol(Plage As Range) As Long
Dim s, i&, j&, Nb&, Chaine As String
For i = 1 To Plage.Count
Chaine = Trim(Chaine & Application.Trim(Plage(i)) & ";")
Next i
s = Split(Chaine, ";")
For i = LBound(s) To UBound(s)
If InStr(1, s(i), " ") > 0 Then
For j = i + 1 To Plage.Count
If s(j) <> "" Then Nb = Nb + 1
Next j
End If
Next i
NbCol = Nb
End Function