bonjour
si j'ai bien compris la demande voici le code modifié
si besoin rendre le Range("A1:D5") en dynamique
fred
Option Explicit
Dim cel
Sub Selectionner()
Dim j As Byte
Dim rng As Range, cell As Range
Set cel = Range("F1")
Set rng = Range("A1:D5")
For j = 1 To Range("G" & Rows.Count).End(xlUp).Row
For Each cell In rng
If (cell = Range("G" & j)) Then
Set cel = Application.Union(cel, cell)
End If
Next cell
Next j
cel.Select
End Sub
Edit :
tu marques
Ensuite serait-il possible de dire à la macro que le caractère * correspond à n'importe quel chiffre.
ne voudrais pas tu dire toutes les cellules dont les deux derniers caractères finissent part ??
est-ce que c'est une recherche sur la 2 derniers caractères tout le temps ?
fred