Sub Toto()
Dim rg As Range, c As Range, B As Range, rg2 As Range, rg3 As Range, rg4 As Range, rg5 As Range, rg6 As Range
Dim ws1 As Worksheet, ws2 As Worksheet, wsPL As Worksheet, pvttable As Worksheet
Dim sExpediteur As String, sDate As String, retour As String
Set ws1 = Sheets("2011")
Set rg = ws1.Range("M2:M35")
Set wsPL = Sheets("Aperçu avant la macro")
sDate = InputBox("Date de validité : ", "Pays", Date)
For Each c In rg
If c = "X" Then
wsPL.Rows("2:50").EntireRow.Hidden = False
Set rg3 = wsPL.Range("PLBio").End(xlUp).Offset(1, 0)
Set rg4 = wsPL.Range("PLZü").End(xlUp).Offset(1, 0)
Set rg5 = wsPL.Range("PLBe").End(xlUp).Offset(1, 0)
If ws1.Range("B" & c.Row) = "719121" Then
Range("Bioggio_insert").Offset(-1, 0).Insert
Range("biodate") = sDate
rg3 = c.Offset(0, -12) 'N° ordre TMS
rg3.Offset(0, 1) = c.Offset(0, -9) 'Expéditeur
rg3.Offset(0, 2) = c.Offset(0, -8) 'CP
rg3.Offset(0, 3) = c.Offset(0, -7) 'Localité
rg3.Offset(0, 4) = c.Offset(0, -6) 'Destinataire
rg3.Offset(0, 5) = c.Offset(0, -5) 'CP
rg3.Offset(0, 6) = c.Offset(0, -4) 'Localité
rg3.Offset(0, 7) = c.Offset(0, -3) 'n° envoie
rg3.Offset(0, 9) = c.Offset(0, -2) 'n
rg3.Offset(0, 10) = c.Offset(0, -1)
ElseIf ws1.Range("B" & c.Row) = "719126" Then
Range("Zürich_insert").Offset(-1, 0).Insert
Range("PL_Zü_date") = sDate
rg4 = c.Offset(0, -12) 'N° ordre TMS
rg4.Offset(0, 1) = c.Offset(0, -9) 'Expéditeur
rg4.Offset(0, 2) = c.Offset(0, -8) 'CP
rg4.Offset(0, 3) = c.Offset(0, -7) 'Localité
rg4.Offset(0, 4) = c.Offset(0, -6) 'Destinataire
rg4.Offset(0, 5) = c.Offset(0, -5) 'CP
rg4.Offset(0, 6) = c.Offset(0, -4) 'Localité
rg4.Offset(0, 7) = c.Offset(0, -3) 'n° envoie
rg4.Offset(0, 9) = c.Offset(0, -2) 'n
rg4.Offset(0, 10) = c.Offset(0, -1)
ElseIf ws1.Range("B" & c.Row) = "719119" Then
Range("Bern_insert").Offset(-1, 0).Insert
Range("Bedate") = sDate
rg5 = c.Offset(0, -12) 'N° ordre TMS
rg5.Offset(0, 1) = c.Offset(0, -9) 'Expéditeur
rg5.Offset(0, 2) = c.Offset(0, -8) 'CP
rg5.Offset(0, 3) = c.Offset(0, -7) 'Localité
rg5.Offset(0, 4) = c.Offset(0, -6) 'Destinataire
rg5.Offset(0, 5) = c.Offset(0, -5) 'CP
rg5.Offset(0, 6) = c.Offset(0, -4) 'Localité
rg5.Offset(0, 7) = c.Offset(0, -3) 'n° envoie
rg5.Offset(0, 9) = c.Offset(0, -2) 'n
rg5.Offset(0, 10) = c.Offset(0, -1)
End If
End If
Set c = Nothing
Next c
Set rg = ws1.Range("N2:N35")
For Each B In rg
ma_variable = B.Row
If B = "X" Then
ChoisirOptions.Show
End If
Set B = Nothing
Next B
End Sub