'Fonction pour transférer dans une autre feuille les références A concevoir
Sub CopierColler()
LigneFeuille1 = 2
Sheets("RADO").Select
i = 0
Do While i <= 400
'Test pour le placement dans la feuille dessin
If Range("h2").Offset(i, 0).Value = "A concevoir" Then
Range("h2").Offset(i, 0).EntireRow.Copy
'Sélectiion des deux feuilles où les occurences seront collées
Dim ws As Worksheet
For Each ws In Sheets(Array("DESSIN", "MECANIQUE"))
ws.Activate
Cells(LigneFeuille1, 1).EntireRow.Insert Shift:=xlDown
Next ws
Sheets("RADO").Select
End If
i = i + 1
Loop
End Sub