Sub Trans_donnees()
Dim Liste_Staff As Variant, Compteur As Long, Test As Boolean
With ThisWorkbook
With .Worksheets('Liste_Staff')
Liste_Staff = .Range('B2:B' & .Range('B65536').End(xlUp).Row).Value
End With
If Range('B3').Value = '' Then
MsgBox 'Pas de Nom de Famille, donc il n'y a rien à exporter, arrêt de la macro !', vbCritical + vbOKOnly, 'Erreur...'
Else
Test = False
For Compteur = LBound(Liste_Staff) To UBound(Liste_Staff)
If StrComp(Range('B3').Value, Liste_Staff(Compteur, 1), 1) = 0 Then Test = True: Exit For
Next Compteur
If Test = True Then
With .Sheets('Allocation_Country')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B9').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B9').Value
If Range('B8').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B8').Value
If Range('B10').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B10').Value
If Range('B11').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B11').Value
End With
End With
With .Sheets('Allocation_Project')
With .Range('A65536').End(xlUp).Offset(1, 0)
.Value = Range('B3').Value
.Offset(0, 1).Value = Range('B4').Value
If Range('B14').Value = 0 Then .Offset(0, 2).Value = 0 Else .Offset(0, 2).Value = Range('B14').Value
If Range('B15').Value = 0 Then .Offset(0, 3).Value = 0 Else .Offset(0, 3).Value = Range('B15').Value
If Range('B16').Value = 0 Then .Offset(0, 4).Value = 0 Else .Offset(0, 4).Value = Range('B16').Value
If Range('B17').Value = 0 Then .Offset(0, 5).Value = 0 Else .Offset(0, 5).Value = Range('B17').Value
End With
End With
MsgBox 'Les données ont été envoyées avec succès !', vbOKOnly + vbInformation
Else
MsgBox 'ce nom n'est pas dans la liste, veuillez l'ajouter', vbOKOnly + vbInformation
End If
End If
End With
End Sub