Bonjour,
Dans le module de votre onglet :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim AireACopier As Range, AireTitre As Range
Dim Continuer As Boolean
If Target.Count > 1 Then Exit Sub
Set AireACopier = Range(Target, Target.Offset(0, 5))
Set AireTitre = Range("B3:G3")
Continuer = False
If Not Intersect(Target, Range("B4:B10000")) Is Nothing Then
Select Case Target
Case "Gala", "Truc", "Etc"
Continuer = True
End Select
If Continuer = True Then
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
AireACopier.Copy Destination:=.Range("B4")
AireTitre.Copy Destination:=.Range("B3")
End With
Sheets(AireACopier.Parent).Activate
End If
End If
Cancel = True
Set AireACopier = Nothing: Set AireTitre = Nothing
End Sub