Problème plusieurs IF mais ne prend que le premier

Bonjour à tous,

Je suis sur un petit bout de code qui normalement foncitonne tout seule mais là, il ne prend que la première condition. Savez-vous pourquoi ?

Sub remplissage_IG_Vide()

 'Pour les IG manquantes, opérations spécifiques
 'Recherche si le code titre est déjà présent dans la balance et si c'est le cas, la macro reprend la même IG

Application.ScreenUpdating = False

Sheets("BG CODA trans").Select
Dim C As Range
der = Range("A65000").End(xlUp).Row
For Each Cel In Range("A4117:A" & der)
    If Cel.Offset(0, 2) = "FR0007048970" Then
        Cel.Offset(0, 4) = "AFS"
        If Left(Cel.Offset(0, 2), 11) = "PREEUR26091" Then
            Cel.Offset(0, 4) = "LAR"
            If Cel.Offset(0, 2) = "" And Cel.Offset(0, 4) = "" Then
                Cel.Offset(0, 4) = "LAR"
            End If
        End If
    End If
Next

End Sub

Merci à vous

ALine

bonjour

Sans voir le fichier, nous ne savons pas ce que contiennent tes cellules.

Pour tester, peux-tu envoyer un bout du fichier sur Excel?

Cordialement

Bonjour

essaie ceci, mais avec un fichier pour tester ce serait plus simple.

Sub remplissage_IG_Vide()

 'Pour les IG manquantes, opérations spécifiques
'Recherche si le code titre est déjà présent dans la balance et si c'est le cas, la macro reprend la même IG

Application.ScreenUpdating = False

Sheets("BG CODA trans").Select
Dim C As Range
der = Range("A65000").End(xlUp).Row
For Each Cel In Range("A4117:A" & der)
    If Cel.Offset(0, 2) = "FR0007048970" Then
        Cel.Offset(0, 4) = "AFS"
       elseIf Left(Cel.Offset(0, 2), 11) = "PREEUR26091" Then
            Cel.Offset(0, 4) = "LAR"
        elseIf Cel.Offset(0, 2) = "" And Cel.Offset(0, 4) = "" Then
                Cel.Offset(0, 4) = "LAR"
    End If
Next

End Sub