Effacer contenue de ma feuille sauf en ecriture rouge

bonjour , j'ai une macro , je voudrais rectifier pour supprimer ma feuille sauf si ce qui est ecris en rouge , que dois je rajouter

merci

[a13:j56].ClearContents

Bonjour thierryhoang, le forum,

Peut-être ainsi:

Sub test()
 Dim plage As Range, cel As Range
  Set plage = Range("A13:J56")
  For Each cel In plage
   If cel.Font.Color <> vbRed Then cel.ClearContents
  Next cel
End Sub

Cordialement,

non en fait j'ai une main courante et je voudrais rajouter sur ma macro supprimer la feuille sauf ce qui est ecris en rouge pour le lendemain

cordialement

voila je vous poste mon fichier exel de main courante , je voudrais rajouter que les ligne en rouge ne se supprime pas de la feuille modele

cordialement

Bonjour thierryhoang,

voila je vous poste mon fichier exel de main courante , je voudrais rajouter que les ligne en rouge ne se supprime pas de la feuille modele

Pourquoi toutes ces cellules fusionnées,

Un essai....

Sub fin_service()
  Dim Cel As Range
  Dim Plage As Range
  Dim Mg As String, TB
        Application.EnableEvents = False
        [b65536].End(xlUp)(3).Select
        ActiveCell = "fin de service"
      'Call ligne

        With Sheets("modele")
         .Copy After:=Sheets(1)
         ActiveSheet.Name = Format(Date, "dd-mm-yy")
         ActiveSheet.Shapes("toto").Delete
         [c4] = Date
         ActiveSheet.Protect Password:="777"
         .Activate
            Set Plage = .Range("A13:J56,E4:Q6,A8:Q11")

        For Each Cel In Plage
            Mg = Cel.MergeArea.Address
            TB = Split(Mg, ":")
            If .Range(TB(0)).Font.Color <> vbRed Then
                .Range(Mg).ClearContents
            End If
        Next Cel
    End With
        Application.EnableEvents = True
End Sub

Cordialement,

bonjour , oui super mais apres avoir mis ton fichier j'ai un beug , au niveau fin de service , il s'inscrit dans la case marquer du j24 et plus rien se passe .

merde

je joint mon fichier

cordialement

bonjour , j'ai rectifier tout fonctionne encore merci pour ton aide

cordialement