Probleme répétition plusieurs feuilles

Bonjour à tous,

vous m'aviez aidé sur un problème de macro il y a quelques temps, je reviens vers vous pour de nouveaux conseils.

En effet, j'ai une macro qui répète la même chose mais dans différente feuille suivant la lettre inscrite dans une case.

Sub COF()
If Sheets("données entrées").Range("F3").Value = "" = True Then
  Beep
  MsgBox "Il faut d'abord démarrer la production !"
  Exit Sub
  Else
   If Sheets("données entrées").Range("F12") = "A" Then
        Sheets("TAFA").Range("C65536").End(xlUp).Offset(1, 0).Borders.Weight = xlThin
        Sheets("TAFA").Range("C65536").End(xlUp).Offset(1, 0).Value = Time
        Sheets("TAFA").Range("D" & Sheets("TAFA").Range("D65536").End(xlUp).Row + 1).Borders.Weight = xlThin
        Sheets("TAFA").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("TAFA").Range("C65536").End(xlUp) - Sheets("TAFA").Range("B65536").End(xlUp)
        Sheets("Interface").Range("L9").Interior.ColorIndex = xlAutomatic
   Else
        If Sheets("données entrées").Range("F12") = "B" Then
        Sheets("TAFB").Range("C65536").End(xlUp).Offset(1, 0).Borders.Weight = xlThin
        Sheets("TAFB").Range("C65536").End(xlUp).Offset(1, 0).Value = Time
        Sheets("TAFB").Range("D" & Sheets("TAFB").Range("D65536").End(xlUp).Row + 1).Borders.Weight = xlThin
        Sheets("TAFB").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("TAFB").Range("C65536").End(xlUp) - Sheets("TAFB").Range("B65536").End(xlUp)
        Sheets("Interface").Range("L9").Interior.ColorIndex = xlAutomatic
        Else
            If Sheets("données entrées").Range("F12") = "C" Then
            Sheets("TAFC").Range("C65536").End(xlUp).Offset(1, 0).Borders.Weight = xlThin
            Sheets("TAFC").Range("C65536").End(xlUp).Offset(1, 0).Value = Time
            Sheets("TAFC").Range("D" & Sheets("TAFC").Range("D65536").End(xlUp).Row + 1).Borders.Weight = xlThin
            Sheets("TAFC").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("TAFC").Range("C65536").End(xlUp) - Sheets("TAFC").Range("B65536").End(xlUp)
            Sheets("Interface").Range("L9").Interior.ColorIndex = xlAutomatic
            Else
                If Sheets("données entrées").Range("F12") = "D" Then
                Sheets("TAFD").Range("C65536").End(xlUp).Offset(1, 0).Borders.Weight = xlThin
                Sheets("TAFD").Range("C65536").End(xlUp).Offset(1, 0).Value = Time
                Sheets("TAFD").Range("D" & Sheets("TAFD").Range("D65536").End(xlUp).Row + 1).Borders.Weight = xlThin
                Sheets("TAFD").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("TAFD").Range("C65536").End(xlUp) - Sheets("TAFD").Range("B65536").End(xlUp)
                Sheets("Interface").Range("L9").Interior.ColorIndex = xlAutomatic
                Else
                    If Sheets("données entrées").Range("F12") = "E" Then
                    Sheets("TAFE").Range("C65536").End(xlUp).Offset(1, 0).Borders.Weight = xlThin
                    Sheets("TAFE").Range("C65536").End(xlUp).Offset(1, 0).Value = Time
                    Sheets("TAFE").Range("D" & Sheets("TAFE").Range("D65536").End(xlUp).Row + 1).Borders.Weight = xlThin
                    Sheets("TAFE").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("TAFE").Range("C65536").End(xlUp) - Sheets("TAFE").Range("B65536").End(xlUp)
                    Sheets("Interface").Range("L9").Interior.ColorIndex = xlAutomatic
                    Else
                    MsgBox ("erreur")
                    Exit Sub
End If
End If
End If
End If
End If
End If
End Sub

Cette partie du problème fonctionne bien mais je bloque au moment ou je veux mettre un message d'erreur.

Je vous met le texte de la macro ainsi que le texte du message d'erreur.

If Sheets("TAFA").Range("B65536").End(xlUp).Row() <> Sheets("TAFA").Range("C65536").End(xlUp).Row() = False Or Sheets("TAFB").Range("B65536").End(xlUp).Row() <> Sheets("TAFB").Range("C65536").End(xlUp).Row() = False Or Sheets("TAFC").Range("B65536").End(xlUp).Row() <> Sheets("TAFC").Range("C65536").End(xlUp).Row() = False Or Sheets("TAFD").Range("B65536").End(xlUp).Row() <> Sheets("TAFD").Range("C65536").End(xlUp).Row() = False Or Sheets("TAFE").Range("B65536").End(xlUp).Row() <> Sheets("TAFE").Range("C65536").End(xlUp).Row() = False Then
    Beep
    MsgBox "il manque l'heure du début d'arret !"
    Exit Sub
   Else

j'ai déja essayé avec la fonction "and" dans la fonction SI mais sans résultat puisqu'il me bloque à chaque fois !

merci

Bonjour, essayez d'enlever les

=false