Private Sub Worksheet_Change(ByVal Target As Range)
Dim Montab, i As Integer, j As Integer
If Target.Address <> "$B$1" Then Exit Sub
Select Case Range("B1").Value
Case Is = "courtier1"
Montab = t_courtier1
Case Is = "courtier2"
Montab = t_courtier2
Case Is = "courtier3"
Montab = t_courtier3
Case Is = "courtier4"
Montab = t_courtier4
End Select
Sheets("Courtier").Range("A6:O30").Value = Montab
End Sub