Sub SupprimerUnFournisseur()
Application.ScreenUpdating = False
Dim f, dercol&, col&, col2&, col3&, col4&, col5&, ft
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Selection, Range(Cells(8, 5), Cells(8, Cells(8, Columns.Count).End(xlToLeft).Column))) Is Nothing Then
If Selection.Column = 5 Then
MsgBox "Vous ne pouvez pas supprimer le premier fournisseur.", 16
Exit Sub
Else
rep = MsgBox("Vous voulez vraiment supprimer le fournisseur " & Selection.Value & " ?", 20)
If rep = 7 Then Exit Sub
f = Selection
Set ft = Sheets("Total Général")
With ft
.Activate
'6 colonnes de détail du fournisseur
col = .Rows("10:10").Find(f, LookAt:=xlWhole, LookIn:=xlValues).Column
col2 = col + 6
.Range(Columns(col), Columns(col2)).Delete Shift:=xlToLeft
'1 colonne "LIVRAISON"
col = .Rows("10:10").Find("LIVRAISON " & f, LookAt:=xlWhole, LookIn:=xlValues).Column
.Columns(col).Delete Shift:=xlToLeft
'colonnes "Prix unitaires"
col = .Rows("10:10").Find(f, LookAt:=xlWhole, LookIn:=xlValues).Column
.Range(Columns(col), Columns(col + 6)).Delete Shift:=xlToLeft
'colonne "MONTANT FOURNISSEUR"
col = .Rows("10:10").Find("MONTANT " & f, LookAt:=xlWhole, LookIn:=xlValues).Column
.Columns(col).Delete Shift:=xlToLeft
End With
Sheets("Données").Activate
'colonne du fournisseur dans la feuille "Données"
Columns(Selection.Column).Delete Shift:=xlToLeft
' On Error Resume Next
' ActiveWorkbook.Names(f).Delete 'ici tu veux supprimer un nom (gestionnaire de nom) qui n'existe pas
' peut etre que dans ton fichier origine, le nom existait??
End If
Else
MsgBox "Vous devez sélectionner le nom du fournisseur à supprimer.", 16
End
End If
Application.ScreenUpdating = True
End Sub