Macro de condition dans excel

bonjour

peut etre quelque chose qui ressemble à ça

If Range("D8").Value = "toto" Then
Sheets("Feuil2").Select
Else
Sheets("Feuil3").Select
End If

bonne suite

J'ai essayé la ligne de code, mais j'ai toujours l'erreur Block if sans end if.
Je vais mettre la ligne de code au complet, peut-être pourrais tu voir l'erreur.
Merci pour ta réponse extrêmement rapide.

Private Sub CommandButton2_Click()
'
Application.ScreenUpdating = False

If Range("D8")= "ToTo" Then

Application.ActivePrinter = "Wasp WPL-305 sur Ne01:"
Sheets("Étiquette Date").PrintOut Copies:=Sheets("Étiquette Date").Range("E2")

Else

' Parcourt les Feuilles de la 1ème à la dernière
For sh = 1 To Sheets.Count
With Sheets(sh).Range("d1")
' recherche la valeur située en 'D8' sur la première feuille
Set t = .Find(Sheets("Choix").Range("D8").Value, LookIn:=xlValues)
If Not t Is Nothing Then
' Si la valeur est trouvée, alors
' Active la feuille contenant cette valeur
Sheets(sh).Activate
' Récupère l'adresse de la cellule trouvée et la selectionne
'Nom du Client
.Range("B1").Offset(0, -3).Copy Destination:=Sheets("Étiquette Pièce").Range("B1:E1")
'Numero de la piece
.Range("B3").Offset(0, -3).Copy Destination:=Sheets("Étiquette Pièce").Range("B5:E5")
'Description de la piece
.Range("B5").Offset(0, -3).Copy Destination:=Sheets("Étiquette Pièce").Range("B3:E3")

Sheets("Étiquette Pièce").Select
'

'
Application.ActivePrinter = "Wasp WPL-305 sur Ne01:"
Sheets("Étiquette Pièce").PrintOut Copies:=Sheets("Étiquette Pièce").Range("G6")

Sheets("Choix").Select
Exit Sub

End If

End With

Next
Application.ScreenUpdating = True
End Sub

Merci encore de ton aide.

Bonsoir,
Au passage, il manque un [End If] entre [Next] et [Application.ScreenUpdating = True]

bonjour

If left( Range("D8"),4) = "ToTo" Then

prend en compte tous les ToTo

re

la proposition de bginforme est correcte
est ce que tu as bien respecté la casse (majuscule/minuscule) dans l'écriture de tes toto(s)
pour eviter ces pb de casse tu peux mettre

If left(UCase(Range("D8")),4)= "TOTO" Then

bonne suite