Bonjour,
Sans plus de précisions, un début de piste :
Sub Test()
Dim Plage As Range
Dim Cel As Range
Dim Adresse As String
Dim I As Integer
Dim Chaine As String
Dim Contient As Boolean
Chaine = "A,B,C,D,E,F,G"
Set Plage = Range("A1:A10")
For Each Cel In Plage
For I = 0 To UBound(Split(Chaine, ","))
If InStr(Cel.Value, Split(Chaine, ",")(I)) <> 0 Then
Contient = True
Exit For
End If
Next I
If Contient = False Then Adresse = Adresse & Cel.Address(0, 0) & vbCrLf
Contient = False
Next Cel
MsgBox Adresse
End Sub