multiple selection avec find

a = Range("g19").Value
With Worksheets(1).Range("c4:iv4")
    Set C = .Find(a, LookIn:=xlValues)
    If Not C Is Nothing Then
        Do
            C.Value = 5
            Set C = .FindNext(C)
        Loop While Not C Is Nothing
    End If
End With

Notes
Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés. Le fait de définir les paramètres de ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments de façon explicite chaque fois que vous utilisez cette méthode.

Cliquez pour agrandir...