Copiercoller par clic valeurs de plusieurs cellules d'une même ligne vers autre feuil

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  If Target.Count = 1 Then
    
    If Not Intersect(Range("A1:D49"), Target) Is Nothing Then
      Select Case Target.Column
        Case 1
         With Sheets("Suivi R200").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
          .Value = Target
          .NumberFormat = Target.NumberFormat
         End With
      End Select
    End If
   
    If Not Intersect(Range("E1:H49"), Target) Is Nothing Then
      Select Case Target.Column
        Case 5
         With Sheets("Suivi G2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
          .Value = Target
          .NumberFormat = Target.NumberFormat
         End With
      End Select
    End If
  
  End If
End Sub