If Left(ActiveSheet.Cells(Inc_Ligne, 1), 4) = "toto" Then 'Si les 4 caractères de gauche de la cellule se trouvant en "A?") ou ? =Inc_Ligne sont "toto" alors
Temp_Inc = InStr(ActiveSheet.Cells(Inc_Ligne, 1), ":") 'Recherche la position des caractères ":" dans cette cellule à partir du 1er caractère. sauvegarder cette position dans Temp_Inc
Temp_Inc2 = InStr(Temp_Inc + 1, ActiveSheet.Cells(Inc_Ligne, 1), ":") 'Recherche la postion du caractère ":" après la première occurence trouvée, sauvegarder cette 2e position dans Temp_Inc2
toto = Right(ActiveSheet.Cells(Inc_Ligne, 1), Len(ActiveSheet.Cells(Inc_Ligne, 1)) - Temp_Inc2 'La valeur de toto: on conserve les caractères de droite se trouvant après la 2e occurence de ":"
'Exemple :
'toto_123:56789:abcdef
'TempInc = 9
'TempInc2 = 15
'toto = abcdef