For i = 1 To Sheets.Count
[B]If Not Sheets(i).Name Like "cl_*"[/B]
If i = 2 Then
formule = Sheets(i).Name & "!B7"
ElseIf i < Sheets.Count Then
formule = formule & "+" & Sheets(i).Name & "!B7"
End If
[B]End If[/B]
Next
Sheets("GLOBAL").Range("B7").FormulaLocal = "=" & formule
[B][COLOR="Blue"]Sheets("GLOBAL").Range("B7").AutoFill Destination:=Range("B7:B22"), Type:=xlFillDefault[/COLOR][/B]
Unload UserForm1
End Sub