bonjour,
une proposition structure de tes feuilles légèrement adaptée
Sub aargh()
Set wss = Sheets("feuil1") ' feuille source
With wss
dlwss = .Cells(Rows.Count, 1).End(xlUp).Row
' on efface les feuilles "1" à "4"
For Each sh In ThisWorkbook.Sheets
If sh.Name <> wss.Name Then
sh.Cells.Delete
wss.Rows(1).Copy sh.Rows(1)
End If
Next sh
' on remplit les feuilles "1" à "4"
For i = 2 To dlwss
For j = 1 To 2 '2 feuilles à compléter la feuille cuve de départ et la feuille cuve d'arrivée
Set ws = Sheets(CStr(.Cells(i, j)))
dl = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
wss.Cells(i, 1).Resize(1, 5).Copy ws.Cells(dl, 1).Resize(1, 5) 'copie la ligne
If j = 1 Then ws.Cells(dl, 3) = -ws.Cells(dl, 3) 'on change le signe pour la cuve de départ
Next j
Next i
End With
End Sub