Sub test()
Dim Zone As Range
With Worksheets("Feuil1")
Set Zone = Range("C2:C" & Range("C65536").End(xlUp).Row)
Zone.Offset(0, 1).FormulaR1C1 = "=RC3&""-""&text(RC26,""000"")" 'Formule en colonne D
Zone.Offset(0, 1) = Zone.Offset(0, 1).Value 'On n'en garde que les valeurs
Zone.Offset(0, 250).FormulaR1C1 = "=IF(OR(RC28=""x"",RC28=""X"",RC28=""C""),""c"",RC28)" 'Formule en colonne 252 (si c, x ou X en colonne 28 alors c, sinon colonne 28)
Zone.Offset(0, 25) = Zone.Offset(0, 250).Value 'La colonne 28 (AC) n'en garde que les valeurs
Zone.Offset(0, 250).FormulaR1C1 = "=IF(AND(RC5=RC6,RC28=""c""),"""",RC5)" 'Formule en colonne 252(si(colonneE=colonneF ET Colonne 28 = c) alors Vide sinon Contenu de la colonne 5
Zone.Offset(0, 251).FormulaR1C1 = "=IF(AND(RC5=RC6,RC28=""c""),"""",RC6)" 'Formule en colonne 253(si(colonneE=colonneF ET Colonne 28 = c) alors Vide sinon Contenu de la colonne 6
Zone.Offset(0, 2) = Zone.Offset(0, 250).Value 'Colonne E prend valeur colonne 252
Zone.Offset(0, 3) = Zone.Offset(0, 251).Value 'Colonne F prend valeur colonne 253
Zone.Offset(0, 250) = "" 'Effaçage des colonnes 252 et 253
Zone.Offset(0, 251) = ""
End With
End Sub