Bonjour Ganne1,
J'ai créé du code VBA afin qu'il vous le fasse.
Dans la Feuille 1, j'ai ajouté ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tbl As Variant
Dim PremLigneVide As Double
If Not Intersect(Target, Columns(19)) Is Nothing Then
If LCase(Target.Value) = "oui" Then
Tbl = Range(Cells(Target.Row, 2), Cells(Target.Row, 19)).Value
PremLigneVide = Sheets("Info Med").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Info Med").Cells(PremLigneVide, 1).Resize(UBound(Tbl, 1), UBound(Tbl, 2)) = Tbl
End If
End If
End Sub
Ce qui vous permet de copier votre ligne de la colonne B(2) à S(19) dans la feuille "Info Med" sur la première ligne vide lorsque vous écrivez "oui"
Cela vous convient ?
Bonne journée
Patrice