combobox et userform

=SI(ESTNA(EQUIV($A4;postes;0));"";INDEX('Feuil 2'!$M$63:$AY$210;EQUIV($A4;postes;0);EQUIV(INDEX($1:$1;COLONNE()-MOD(COLONNE()-[COLOR="Red"]3[/COLOR];4));'Feuil 2'!$M$60:$AY$60;0)+MOD(COLONNE()-[COLOR="red"]3[/COLOR];4)))

=SI(NB.SI(postes;$A4);RECHERCHEV($A4;'Feuil 2'!$A$63:$AY$210;[COLOR="Red"]10[/COLOR]+COLONNE();0);"")

For c = 3 To 41 'boucle sur les colonnes 3 à 41
        If (c - 2) Mod 4 <> 0 Then 'condition : si le reste de la division du (numéro de colonne - 2) par 4 n'est pas égale à zéro (multiple de 4)
            .Cells(dl + 2, c).Formula = "=SUM(" & .Cells(4, c).Address & ":" & .Cells(dl, c).Address & ")"

ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
    Range("C9").Select

Private Sub userform_initialize()
Dim cel As Range

With Sheets("feuil2")
    For Each cel In .Range("A63:A" & .Range("A210").Row)
    If cel.Value <> "" Then Me.ComboBox1.AddItem cel.Value
    Next cel
End With

With Sheets("zonage 1")
    If .Range("A7").Value <> "" Then
    .Range("A7:AO" & .Range("A65536").End(xlUp).Row).Clear
    End If
End With

End Sub

Private Sub ComboBox1_Change()
Dim r As Range
Dim dest As Range

With Sheets("feuil2").Range("A63:A" & Sheets("feuil2").Range("A210").Row)
    Set r = .Find(Me.ComboBox1, , xlValues, xlWhole)
End With

If Not r Is Nothing Then
    Set dest = Sheets("zonage 1").Range("A65536").End(xlUp).Offset(1, 0)
    r.Copy dest
    Range(r.Offset(0, 1), r.Offset(0, 50)).Copy
    dest.Offset(0, 1).PasteSpecial (xlPasteValues)
    End If
    
    
End Sub

Private Sub CommandButton1_Click()
Dim dl As Integer

With Sheets("zonage 1")
dl = .Range("A65536").End(xlUp).Row
.Cells(dl + 2, 1).Value = "TOTAL"
For c = 13 To 51
    If (c - 12) Mod 4 <> 0 Then
    .Cells(dl + 2, c).Formula = "=SUM(" & .Cells(4, c).Address & ":" & .Cells(dl, c).Address & ")"
    End If
Next c
End With
Unload Me
End Sub