Sub Copie()
Dim CellConf As Range
Dim Colonne As String
[COLOR="DarkOrange"]Set CellConf = Range("A2:C2")[/COLOR]
Colonne = InputBox("Indiquez LA colonne (D, E, F, G, ...) à l'aide de laquelle extraire une s_mag :", "Extraction de s_mag")
For i = 2 To Range("A65000").End(xlUp).Row
If Range(Colonne & i) = 1 Then
[COLOR="Red"]Set CellConf = Application.Union(CellConf, Range("A" & i & ":C" & i))[/COLOR]
End If
Next
CellConf.Select
[COLOR="Silver"]Selection.Copy
Workbooks.Add
Range("A2").PasteSpecial Paste:=xlPasteAll
Columns("A:C").EntireColumn.AutoFit[/COLOR]
End Sub