' si les quatre premiers caractères de la cellule sont Sefa, le mot Sefa est copié en colonne d
If Left(c, 4) = "Sefa" Then c.Offset(, 3) = Left(c, 4)
' si les sept premiers caractères de la cellule sont Swissca, le mot Swissca est copié en colonne d
If Left(c, 7) = "Swissca" Then c.Offset(, 3) = Left(c, 7)