Sub Recopier()
Dim lig As Long, cel As Range
Application.ScreenUpdating = False
Sheets("atelier").Rows("3:65536").ClearContents
lig = 2
With Sheets("Feuil1")
For Each cel In Range("C3:C" & [C65536].End(xlUp).Row)
'If cel.Value = "atelier" Then
If InStr(1, cel.Value, "atelier") > 0 Then
lig = lig + 1
'Recopie dans la feuille "atelier" à partir de la ligne 3
Sheets("atelier").Cells(lig, 1).Resize(, 38) = .Cells(cel.Row, 1).Resize(, 38).Value
End If
Next cel
End With
Application.ScreenUpdating = True
End Sub