Bonjour,
avec cette macro tu testeras si la colonne A contient la valeur 1, puis tu aura comme sélection finale la cellule A1 et toutes les cellules où la valeur est de 1
Sub mamacro()
Dim maselection As Range
Set maselection = Range("A1")
For i = 1 To 9
If Range("A" & CStr(i)).Value = 1 Then
Set maselection = Union(Range("A" & CStr(i)), maselection)
End If
Next i
maselection.Select
End Sub
Papaye