Ranger des cellules suivant critère

bonjour tout le monde,

j'ai une variable col de type range

j'ai une instruction de ce genre

Set col = Range("A2:A15") ça marche très bien sauf que maintenant je ne dois pas stocker dans col toutes les cellules c a d je stocke uniquement les cellules répondants à un critère ( si Ai="toto" je ne le stocke pas ) i de 2 à 15 comment faire

SVP

merci d'avance

Bonjour

Dim col(15)

For i = 2 To 15
    col(i) = Range("A" & i).Value
    If col(i) = "toto" Then
    Else
    MsgBox "C'est pas Toto"
    End If
Next

Si ce n'est pas assez proche de ta situation, joint un fichier

Cordialement.

merci eldewen pour votre réponse votre code il me semble qu'il ne fait que mettre les cellules dans un tableau et affiche "c'est pas toto " quand la cellule ne contient pas toto

ce n'est pas ce que je demande

voila mon bout de code

For i = 2 To Derli ' Derli la dernière ligne de la colonne A

      If Cells(i, 1) <> "toto" Then

      ajouter la cellule a col 'col une variable de type range
      End If

Next i

Comme je ne comprends pas bien ta demande, j'ai joint un fichier avec le résultat obtenu après la macro suivante :

Dim col(200)
Dim derli

derli = [A65000].End(xlUp).Row - 1

For i = 1 To derli
    col(i) = Range("A" & i + 1).Value
    If col(i) <> "toto" Then
    [C65000].End(xlUp).Offset(1, 0).Select
    ActiveCell.Formula = col(i)
    End If
Next

Un fichier Excel avec un exemple de la situation et un exemple de ce que tu veux afficher comme résultat serait le bienvenue pour répondre à ton problème

Cordialement

merci beaucoup pour la réponse

en fait voila j'explique mieux ce que je cherche

je veux initialiser un combo avec des cellules qui répondent à un critère sans passer par le tableau

voir fichier joint peut être sa explique mieux mon prob

je souhaite repecter ma démarche si possible

merci infiniment pour vos réponses